home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / wr1___i1.p2s < prev    next >
Encoding:
Text File  |  1994-05-10  |  3.0 KB  |  126 lines
  1. ###############################################################
  2. # OBJECTIVE:
  3. #
  4. # Description:  Open the wave player, load, set record settings,
  5. # record, seek, play, save, close .
  6. #
  7. # *** Wave Record from MIcrophone with Monitor input disabled.
  8. #
  9. ###############################################################
  10.  
  11. ############################################
  12. #
  13. #   OPEN THE DIGITAL AUDIO PLAYER
  14. #   WAIT FOR SUCCESSFUL OPEN
  15. #
  16. ############################################
  17.  
  18. open waveaudio00 alias wave1 shareable notify
  19. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  20. @WAIT_NOTIFY 1 5000
  21.  
  22. connection wave1 query type wave stream alias amp wait
  23.  
  24. ############################################
  25. #
  26. #   LOAD A NEW FILE TO BE RECORDED
  27. #
  28. ############################################
  29.  
  30. load wave1 new notify
  31. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #2
  32. @WAIT_NOTIFY 2 30000
  33.  
  34. ############################################
  35. #
  36. #   SET THE DIGITAL AUDIO PLAYER
  37. #   TIME FORMAT - MILLISECONDS
  38. #   BITS PER SAMPLE -  8  
  39. #   SAMPLES PER SEC - 11.025Khz  
  40. #   CHANNELS - 1      
  41. #   FORMAT TAG - PCM   
  42. #   Monitor Input disabled
  43. #
  44. ############################################
  45.  
  46. set wave1 time format milliseconds wait
  47. status wave1 time format wait
  48. =milliseconds
  49.  
  50. set wave1 bitspersample 8 wait
  51. status wave1 bitspersample wait
  52. =8
  53.  
  54. set wave1 samplespersec 11025 wait
  55. status wave1 samplespersec wait
  56. =11025
  57.  
  58. set wave1 channels 1 wait
  59. status wave1 channels wait
  60. =1
  61.  
  62. set wave1 format tag PCM wait
  63. status wave1 format tag wait
  64. =PCM
  65.  
  66. set amp MONITOR OFF wait
  67. status amp MONITOR wait
  68. =false
  69.  
  70. connector wave1 enable type microphone wait
  71.  
  72. ############################################
  73. #
  74. @BREAK About to record from the Microphone. Click OK to start recording.
  75. #
  76. ############################################
  77.  
  78.  
  79. ############################################
  80. #
  81. #   RECORD THE NEW WAVE FILE
  82. #
  83. ############################################
  84.  
  85. record wave1 from 0 notify
  86. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #3
  87.  
  88. @BREAK This file is recorded in Mono at 8 bits, with a sampling rate of 11.025 Khz. The format tag is PCM.  Click OK to end recording.
  89.  
  90. stop wave1 wait
  91. @WAIT_NOTIFY 3 10000
  92.  
  93. ############################################
  94. #   SEEK TO START
  95. #   PLAY THE NEW RECORDED FILE
  96. ############################################
  97.  
  98. seek wave1 to 0 wait
  99. status wave1 position wait
  100. =0
  101. play wave1 wait
  102.  
  103. ############################################
  104. #
  105. #  CHECK THE QUALITY OF THE RECORDING FROM THE USER
  106. #
  107. ############################################
  108.  
  109. @CHECK Was the recording without hissing, poping, or craking?
  110.  
  111. #Save the recored file 
  112. save wave1 delete.wav notify
  113. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SAVE #4
  114. @WAIT_NOTIFY 4 5000
  115.  
  116. ############################################
  117. #
  118. #   CLOSE THE DIGITAL AUDIO PLAYER AND
  119. #   EXPECT A SUCCESSFUL CLOSE
  120. #
  121. ############################################
  122.  
  123. close wave1 notify
  124. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #5
  125. @WAIT_NOTIFY 5 25000
  126.